home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / s / english.edrc < prev   
Text File  |  1995-08-15  |  6KB  |  151 lines
  1.  
  2. # system definitions
  3. set SystemName (:XDME/)
  4. set HelpFile   ($(SystemName)docs/xdme.doc)
  5.  
  6. set macroname  $(SystemName)macros/?.xrc
  7. set iconname   $(SystemName)icons/icon5.c
  8. set printout   t:printout
  9. set PRINTER    prt:
  10.  
  11.  
  12. # prefs
  13. spc appicon    on
  14. spc ignorecase    off
  15. spc insertmode    on
  16. spc nicepaging    off
  17.  
  18. #menuoff
  19. #newmenustrip auisg
  20. menuclear
  21. menuoff
  22.  
  23. setmacro m+ 2 (menuadd \$menu \$arg1 \$arg2)
  24. setmacro m- 0 (menubar \$menu)
  25. setmacro mc 3 (menucheck \$menu \$arg1 \$arg3 if (\$arg2) (menusetcheck \\\$menu \\\$arg1 1))
  26.  
  27. set OkCncl OK|Cancel
  28.  
  29. set menu Project
  30. m+ (New Project...^AN)      (newwindow settoggle 2 unfail (reqload toggle 2) if 2 (rem quit))
  31. m+ (Open...^AO)             (reqload)
  32. m-
  33. m+ (Save^AS)                (ifelse ($\\fname="unnamed) (reqsave) (saveold))
  34. m+ (Save As...^AA)          (reqsave)
  35. m-
  36. m+ (Print^AP)               (pushvar modified writeto \$printout popvar modified execute (copy \$printout \$PRINTER))
  37. m-
  38. m+ (Hide^AI)                (iconify)
  39. m+ (Close^AK)               (quit)
  40. m-
  41. m+ (About...^A?)            (about)
  42. m-
  43. m+ (Quit Program^AQ)        (quitall)
  44.  
  45. set menu Edit
  46. m+  (Cut^AX)            (copy bdelete)
  47. m+  (Copy^AC)           (copy unblock)
  48. m+  (Paste^AV)          (clipins)
  49. m-
  50. m+  (Block^SBegin)      (bstart)
  51. m+  (Block^SEnd)        (bend)
  52. m+  (Block^S^B) ()
  53. m+  (Block^SErase)      (bdelete)
  54. m+  (Block^SCopy)       (bcopy)
  55. m+  (Block^SMove)       (bmove)
  56. m+  (Block^S^B) ()
  57. m+  (Block^SRead...)    (reqinsfile)
  58. m+  (Block^SWrite...)   (if !b abort reqfile (XDME Write Block) SP \$filename bsave \$reqresult)
  59. m+  (Block^S^B) ()
  60. m+  (Block^SMode...)    (request (XDME) (Select Block Mode!) (Lines|Columns|Characters|Cancel) if (\\\$reqresult="0) abort if (\\\$reqresult="1) (blocktype l) if (\\\$reqresult="2) (blocktype v) if (\\\$reqresult="3) (blocktype c) )
  61. m-
  62. m+  (Undo^AZ)           (undo)
  63.  
  64. set menu Search
  65. m+  (Find...^AF)        (reqstring (XDME) (Enter a String to Search!) \$OkCncl \$findstr top find \$reqresult)
  66. m-
  67. m+  (Find Next^A<)      (next)
  68. m+  (Find Previous^A>)  (prev)
  69. m-
  70. m+  (Find & Replace...^AR)  (if 1 (escimm (findr `' `)) 4 left)
  71. m+  (Replace Next)          (nextr)
  72. m+  (Replace Previous)      (prevr)
  73.  
  74. set menu Move
  75. m+  (Start of Text)     (top first)
  76. m+  (End of Text)       (bottom last)
  77. m-
  78. m+  (Sart of Line)      (first)
  79. m+  (1st Character)     (firstnb)
  80. m+  (End of Line)       (last)
  81. m-
  82. m+  (Start of Word)     (right wleft)
  83. m+  (End of Word)       (right wleft while ca right)
  84. m-
  85. m+  (Line...)       (reqnumber (XDME) (Enter a Line   number to go to!) \$OkCncl \$lineno 1 50000 goto \$reqresult)
  86. m+  (Column...)     (reqnumber (XDME) (Enter a Column number to go to!) \$OkCncl \$colno  1 255   col  \$reqresult)
  87. m-
  88. m+  (Marker^SSet #1)     (ping 1)
  89. m+  (Marker^SSet #2)     (ping 2)
  90. m+  (Marker^SSet #3)     (ping 3)
  91. m+  (Marker^S^B)            ()
  92. m+  (Marker^SGoto #1)  (pong 1)
  93. m+  (Marker^SGoto #2)  (pong 2)
  94. m+  (Marker^SGoto #3)  (pong 3)
  95.  
  96. set menu Macros
  97. m+  (Start Record) (recstart title (Record Started))
  98. m+  (End Record)   (recend   title (Record Ended))
  99. m-
  100. m+  (Play Record)  (recplay)
  101. m+  (Read...)       (reqfile (XDME Read Macro) P  \$macroname set macroname \$reqresult source  \$macroname)
  102. m+  (Save...)       (reqfile (XDME Save Macro) SP \$macroname set macroname \$reqresult reqsave \$macroname)
  103. m-
  104. m+  (Command Shell) (opencmdshell)
  105.  
  106. set menu Settings
  107. mc    (Insert Mode?)            $insertmode     (insertmode \$itemcheck)
  108. mc    (ReadOnly Mode?)          $viewmode       (viewmode   \$itemcheck)
  109. m-
  110. mc    (Automatic Indenting?)    $autoindent     (autoindent \$itemcheck)
  111. mc    (Automatic Splitting?)    $autosplit      (autosplit  \$itemcheck)
  112. mc    (Wordwrap?)               $wordwrap       (wordwrap   \$itemcheck)
  113. m+  (Right Margin...)                           (reqnumber (XDME) (Enter the right Margin!) \$OkCncl \$margin 1 255 margin \$reqresult)
  114. m-
  115. mc    (Create Icons?)           $saveicons      (spc saveicons \$itemcheck)
  116. m+  (Iconname ...)                              (reqfile (XDME Select Icon) P \$iconname set iconname \$reqresult)
  117. m-
  118. mc    (AppIcon?)                $appicon        (spc appicon \$itemcheck)
  119. m+  (AppIconname ...)                           (reqfile   (XDME Select Icon) P \$appiconname set appiconname \$reqresult)
  120. m+  (AppIcontitle ...)                          (reqstring (XDME) (Enter the AppIcon Title!) \$appicontitle set appicontitle \$reqresult)
  121. m-
  122. mc    (Global Search?)          $globalsearch   (global \$itemcheck)
  123. mc    (Case Insensitive?)       $ignorecase     (ignorecase \$itemcheck)
  124. m-
  125. m+  (Font...)                                   (reqfont)
  126. m+  (Colors^SText Foreground...)                (reqcolor (Text Fore) \$fgpen fgpen \$reqresult)
  127. m+  (Colors^SText Background...)                (reqcolor (Text Back) \$bgpen bgpen \$reqresult)
  128. m+  (Colors^S^B) ()
  129. m+  (Colors^SBlock Foreground...)               (reqcolor (Block Fore) \$hgpen hgpen \$reqresult)
  130. m+  (Colors^SBlock Background...)               (reqcolor (Block Back) \$bbpen bbpen \$reqresult)
  131. m+  (Colors^S^B) ()
  132. m+  (Colors^STitle Foreground...)               (reqcolor (Title Fore) \$tfpen SPC_tfpen = \$reqresult)
  133. m+  (Colors^STitle Background...)               (reqcolor (Title Back) \$tbpen tpen \$reqresult)
  134. mc    (Intuition Titles?)       $windowtitles   (windowtitles = \$itemcheck)
  135. m-
  136. m+  (Save Settings)                             (saveconfig)
  137.  
  138. #unsetmacro mc
  139. #unsetmacro m-
  140. #unsetmacro m+
  141. #unset        menu
  142.  
  143. menuon
  144.  
  145. setmacro reqcolor 2 (reqpalette (XDME \$(arg1)ground) \$arg2)
  146.  
  147. if ($\fname="Edit) (chfilename unnamed)
  148. if ($\fname="unnamed) (reqload)
  149.  
  150.  
  151.